home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / examples / doc / widget2.pro < prev    next >
Text File  |  1997-07-08  |  751b  |  24 lines
  1. ; This program is used as an example in the "Widgets"
  2. ; chapter of the _Using IDL_ manual.
  3. ;
  4. PRO widget2_event, ev
  5. WIDGET_CONTROL, ev.top, GET_UVALUE=textwid
  6. WIDGET_CONTROL, ev.id, GET_UVALUE=uval
  7. CASE uval OF
  8.     'ONE' : WIDGET_CONTROL, textwid, SET_VALUE='Button One Pressed'
  9.     'TWO' : WIDGET_CONTROL, textwid, SET_VALUE='Button Two Pressed'
  10.     'DONE': WIDGET_CONTROL, ev.top, /DESTROY
  11. ENDCASE
  12. END
  13.  
  14. PRO widget2
  15. base = WIDGET_BASE(/COLUMN)
  16. button1 = WIDGET_BUTTON(base, VALUE='One', UVALUE='ONE')
  17. button2 = WIDGET_BUTTON(base, VALUE='Two', UVALUE='TWO')
  18. text = WIDGET_TEXT(base, XSIZE=20)
  19. button3 = WIDGET_BUTTON(base, VALUE='Done', UVALUE='DONE')
  20. WIDGET_CONTROL, base, SET_UVALUE=text
  21. WIDGET_CONTROL, base, /REALIZE
  22. XMANAGER, 'Widget2', base
  23. END
  24.